procedure 0
  pen colour = red
  dot 1
  pen colour = black
  forward 3
  pen colour = red
  dot 1
  forward 3 with pen up
  pen colour = red
  dot 1
  pen colour = black
  forward 3
#display: x=21, y=28, grid=24

